home *** CD-ROM | disk | FTP | other *** search
/ El Mac 1 / Magazine.iso / EL MAC 1 / Infotenimiento / Rednex / REDNEX.DIR / 00024.ls < prev    next >
Encoding:
Text File  |  1995-08-21  |  1.9 KB  |  80 lines
  1. on mouseDown
  2.   global Vplus
  3.   set H1 to 159
  4.   set H2 to 247
  5.   set H3 to 373
  6.   set H4 to 479
  7.   set H5 to 565
  8.   repeat with x = 2 to 3
  9.     puppetSprite(x, 1)
  10.   end repeat
  11.   set v to the castNum of sprite 3
  12.   set x to the locH of sprite 2
  13.   if x > 565 then
  14.     nothing()
  15.   else
  16.     set the locH of sprite 2 to the locH of sprite 2 + 70
  17.     if the locH of sprite 2 > H5 then
  18.       set the locH of sprite 2 to H5
  19.     else
  20.       if the locH of sprite 2 < H1 then
  21.         set the locH of sprite 2 to H1
  22.       end if
  23.       set x to the locH of sprite 2
  24.       if (x > H1) and (x < H2) then
  25.         set the locH of sprite 2 to H2
  26.       end if
  27.       if (x > H2) and (x < H3) then
  28.         set the locH of sprite 2 to H3
  29.       end if
  30.       if (x > H3) and (x < H4) then
  31.         set the locH of sprite 2 to H4
  32.       end if
  33.       if (x > H4) and (x < H5) then
  34.         set the locH of sprite 2 to H5
  35.       end if
  36.       set x to the locH of sprite 2
  37.       if x = H3 then
  38.         set the castNum of sprite 3 to 50
  39.       else
  40.         if x = H4 then
  41.           set the castNum of sprite 3 to 48
  42.         else
  43.           if x = H5 then
  44.             set the castNum of sprite 3 to 51
  45.           else
  46.             if x = H1 then
  47.               set the castNum of sprite 3 to 49
  48.             else
  49.               if x = H2 then
  50.                 set the castNum of sprite 3 to 52
  51.               end if
  52.             end if
  53.           end if
  54.         end if
  55.       end if
  56.       if x = H4 then
  57.         set the soundLevel to 5
  58.       else
  59.         if x = H3 then
  60.           set the soundLevel to 4
  61.         else
  62.           if x = H2 then
  63.             set the soundLevel to 3
  64.           else
  65.             if x = H1 then
  66.               set the soundLevel to 1
  67.             else
  68.               if x = H5 then
  69.                 set the soundLevel to 7
  70.               end if
  71.             end if
  72.           end if
  73.         end if
  74.       end if
  75.       put x
  76.       updateStage()
  77.     end if
  78.   end if
  79. end
  80.